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0 F_floating in F format_=- V1 semantics’ 
0 1-002 ! File: PASWRIFF1.832 Edit: SBL1002 


MODULE PASSWRITE _REALF_F1 ( ZTITLE ‘Write an 
IDENT = ° : 


)z 
BEGIN 


' 
SRR RARER ERA RAR AAR REAR EAA RARE AERA 
' 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


® 

® 

® 

® 

: ® 
iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 

iw INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. : 
® 

is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NO . 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY D/SITAL EQUIP * 
i CORPORATION. , 
® 

® 

® 

® 

® 

*® 


IT 
TA 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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2 '® 
§ PITITITITITIIILL LILI LILI LLL LIL LiL tiliiiiitiliiiiiiii 
2 ' 
: '++ 
; FACILITY: Pascal Language Support 
3 i ABSTRACT: 
3 i This module contains a procedure which writes an F_floating in | 
sit fixed-point notation to a textfile using V1 semantics. 
3 sit : ENVIRONMENT: User mode - AST reentrant 
4 9040 AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 | 
4 004 i MODIFIED BY: 
4 004 ‘ 
4 0044 ! 1-001 = Original. SBL 1-April-1981 
: ppee 1-002 - Make total-width a longword. SBL 30-June-1982 
? ! 
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8 143 1 ZSBTTL "PASSWRITE REALF_F1 = Write F_floating in F format to textfile - v1' 
Hy 4 GLOBAL ROUTINE PASSWRITE_REALF_F1 ( 
4 4 PFV: REF SPASS$PFY ee ee ' File variable 

85 4 VALUE: BLOCK (4, BYTEI? ' Value to write 

86 4 TOTAL WIDTH: SIGNED, i Total field width 

87 4 FRAC_BIGITS: SIGNED, ! Digits in fraction 

88 4 ERROR ! Error unwind address | 

89 ): NOVALUE = 

90 

91 ++ 

g 5 FUNCTIONAL DESCRIPTION: 

94 2 This procedure writes an F_floating value in fixed-point notation | 

95 3 to the specified textfile. 
5 It uses the VAX-11 Pascal V1 semantics where if the value is not | 
5 negative, an extra leading blank appears. This is contary to 
° the ISO standard. 
6 This procedure is implemented awe public ‘'single-dollar’’ interfaces 
6 to the Pascal Run-Time berecy so that it may be excluded from 
e the shareable image PASRIL.EXE. | 

| 


CALLING SEQUENCE: 


CALL PASSWRITE_REALF_F1 (PFV.mr.r, VALUE.rf.v , TOTAL_WIDTH.rl.v, 
FRAC_DIGITS.rl.v C, ERROR.ja.rJ)) 


FORMAL PARAMETERS: 


PFV - The Pascal File Variable (PFV) passed by reference. 
The structure of the PFV is defined in PASPFV.REQ. 


VALUE - The F_floating value to write. 

TOTAL_WIDTH - Total field width. 

FRAC_DIGITS - Number of digits in fraction. 

ERROR - Optional. Address to unwind to if an error occurs. 
IMPLICIT INPUTS: 

NONE | 
IMPLICIT OUTPUTS: 

NONE | 
ROUTINE VALUE: 

NONE 
SIDE EFFECTS: 

If the file is the standard file OUTPUT, it is implicitly opened. 
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A808 PASSURITE.REALF.F1 >= Write F_floating in F form 12-861 38d 95:38 :3) PASRTL. REIPASWRIES 1 68251 — 
0} H SIGNALLED ERRORS: 
; i LINTOOLON = Line too long 
0 : NEGWIDDIG = negative Width or Digits specification is not allowed 


LESR 


BEGIN 


BUILTIN 
ACTUALCOUNT ; 


LOCAL 
LD_WIDTH, 


FIE ! Minimum/actual field width 
TEMP_STRING 


! 

; jenperery for convert 
Ena 

' 


DEE AEP DLA MARINI ES SE SE Ese 
MEWN 0 OBNAOUSWN "OVO ONOUFS WHO” 


cS 1 

7 2 1 

ba 3 1 

3 7 1 

Se 0 1 

. 1 

.% 1 

1% 

3; 3 08 

3 8 09 

3; 1 10 

s 3 8 1] 

Ss ig 

; 1 021 

; 3 0214 

se 0215 PFV_ADDR: VOLATILE, le argument 
we 0216 UNWIND_ACT: VOLATILE, ! Enable argument 
3 ' ost ERROR_ADDR: VOLATILE; ! Enable argument 
Ss $519 ABLE \ 

$ ‘ O55¢ LOCAL_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
; f bss¢ '¢ 

9 022 ! Get ERROR parameter, if present. 

4 0224 !~ 

= > 0225 

‘sa 0226 IF ACTUALCOUNT () GEQU 5 

: 166 0227 THEN 

5 Hy e4 asse ERROR_ADDR = .ERROR; ! Set unwind address 

: 169 0580 PFV_ADDR = PFV CPFVSR_PFVJ; ! Set PFV address 

: 170 0231 

3 (171 Oeas + 

; ite 023 § ! The difference between V2 and V1 semantics is that for V2 

ee te 0234 ! (and ISO), the representation of the floating point value 

; 174 0235 § ! has no leading blank if not negative. V1 put a leading 

3; 175 0236 ! blank there, possibly causing the field to be extended 

: 179 St H4 an extra character. 

3; «178 0239 ! To implement this, do a trial conversion of the value into 

3; 179 0240 ' a scratch string. The convert routine will tell us how many 

; 180 0241 ! characters are required for the conversion. If the value 

; «(181 pees ! is not negative, increase the field width to 1 more character 

3 186 bse ! than is necessary. This will cause an extra leading blank. 

: Ht 0244 !- 

3 1 0245 : : 

3 133 Bsee FIELD_WIDTH = .TOTAL_WIDTH; ! Get specified field width 

: 187 0548 IF (NOT .VALUE (0,15,1,0]) AND ! If value is not negative | 

> (188 0 49 (.FIELD WIDTH GEQ°OS AND i Don't bother for invalid width 
3 189 50 (,FRAC_BDIGITS GEQ 0) ! Don't bother for invalid digits 
: 190 0251 N 

3; «191 2¢ BEGIN 

3 195 $2 

3: «19 54 FIELD_WIDTH = 0; ! Expand field 

3 «194 bSee 

; «6195 0256 


'¢ 
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FLF1 = Write F_floating in F form 14-Sep-1984 12:52:04 PASRTL.SRCJPASWRIFF 1.852; 1 (3) 
! Do the conversion into a temporary. FIELD WIDTH will then have 
the number of characters needed. 
PASSCVT_F_T (VALUE ' Value to convert 
TEMP STRING, i Scratch strin 
FIELB_WIDTH, ! Minimum/actual width 
0 ! Maximum width 
.FRAC_DIGITS); ! Number of fraction digits 
'4 
! Set FIELD_WIDTH to be the maximum of the needed length plus | 
! and the caller-specified width. 
FIELD WIDTH = .FIELD_WIDTH + 1; 
IF ,FIELD_wiDTH LSS TTOTAL_WIDTH 
FIELD_WIDTH = .TOTAL_WIDTH; 
END; 
'¢ 
Now call PASSWRITE_REALF_F to do the actual write. 
PASSWRITE_REALF_F (PFV CPFVSR_PFV], .VALUE, .FIELD_WIDTH, .FRAC_DIGITS); 
RETURN; 
END; ! End of routine PASSWRITE_REALF_F1 
-TITLE PASSWRITE_REALF_F1 Write an F_floating in F for 
mat - V1 semantics 
-IDENT \1-002\ 
.EXTRN PASSWRITE_REALF _F1 
-EXTRN PASSCVT_F_T, PASSWRITE_REALF _F 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 
0000 00000 ENTRY PASSWRITE_REALF_F1, Save nothing ; 0144 
5E 14 C2 Bp ons SUBL2 #20, S$ 3 
08 AE 7C 0000 CLRO = ERROR_ADDR ; 0207 
10 AE 04 te CLRL PFV_ADOR : 
6D 0057 CF DE 0000 MOVAL 3$, (FP) ; 
05 6c 91 0001 CMPB_ (AP), # ; 0226 
05 iF 0001 BLSSU ‘18 : 
08 AE 14 AC 00 0001 MOVL ERROR, ERROR_ADDR ; 0228 
10 AE 04 AC 00 Bpote 1$ MOVL PFV V_A ; 0250 
6£ Oc ac B09 OO1F MOVL TOTAL WIDTH, FIELD_WIDTH : 0246 
09 AC 0023 TSTB VALUE?1 s ; 0248 
2C 19 00026 BLSS $ th i 
gf 8 0028 TSTL FIELD_WIDTH Ray: ; 0249 
002A BLSS mht i 
10 «AC D5 0002C TSTL FRAC_DIGITS : 0250 
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(3) 


Page 
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format - V1 semantics 1 
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LHANDCER = Local handler 14-Sep-1984 12:52:04 PASRTL.SRC JPASWRIFF1.832;1 
ZSBITL_ "LOCAL_HANDLER = Local handler’ 
ROUTINE LOCAL HANDLE 
SIGNAC_ARGS: REF BLOCK C, BYTE), ! Signal arguments array 
MECH_ARGS: REF BLOCK [ BYTE. ! Mechanism arguments array 
, ENABCE_ARGS: REF VECTOR C, LONG) ' Enable arguments array 


'e4 
FUNCTIONAL DESCRIPTION: 


This is the condition handler enabled by PASSWRITE_REALF_F1. | 

If the current signal is a Pascal error on the file our establisher 
was called with, we unwind to the caller of the establisher 

with RO being the status code of the error. 


i CALLING SEQUENCE: 


Status.wlc.v = STATUS_HANDLER (SIGNAL_ARGS.rl.ra, MECH_ARGS.rl.ra, 
ENABLE_ARGS.rl.rad 


WN NWWNWwWNwononofeororefrornonn = O7 
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i FORMAL PARAMETERS: 


SIGNAL_ARGS - The signal argument List. 
MECH_ARGS - The mechanism argument List. 
ENABLE _ARGS - An array with the following 
format: 
$ een ww wwnw nw nnnnnt 
:  ENB_COUNT <-- ENABLE_ARGS 
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7  ENB_ERROR_ADOR 
269 
270 ENB_COUNT is the count of following enable arguments. 
sit The count is always at least 2. 
$2 ENB_PFV_ADDR - If non-zero, the address of a longword 
sie containing the PFV our establisher is operating on. 
276 ENB_UNWIND_ACT = Specifies the action 
277 to take on an unwind. The values are: 
278 PAS$K_UNWIND_NOP = Do nothing 
444 PASSK_UNWIND_UNLOCK = Unlock PFV 
281 ENB_ERROR_ADDR - Ignored here. 
288 i IMPLICIT INPUTS: 
$BS i The sieratior’s PFV placed as the first FAO argument in the primary 
286 3 signalled message. 
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mat - V1 semantics 1h-5op-19 4 96: 18:3) 
r 14-Sep-1984 12:52:04 
i IMPLICIT OUTPUTS: 

NONE 

i ROUTINE VALUE: 

SS$_RESIGNAL 

i SIDE EFFECTS: 

May cause an unwind. 


BEGIN 

LITERAL 
ENB_COUNT = 0, ' Count of enable arguments 
ENB_PFV_ADDR = 1 ' Address of address of PFV 
ENB_~UNWIND_ACT= e, i Address of unwind action 


ENB-ERROR_ADDR = 
14 


: Determine if this is an unwind. If so, resignal. 
' Otherwise, see if we should cause an unwind. 


IF_.SIGNAL_ARGS CCHF$L_SIG_NAME] EQLU SS$_UNWIND 
RETURN SS$_RESIGNAL; 


0 
PASWRIFF1.B52;1 


! Address of address of unwind PC 


v g SOLE LAGS CENB_ERROR_ADDR] NEQ 0 ! Error:=Continue specified? 


BEGIN 


CAL 
COND_NAME: BLOCK (4, BYTE), Primary condition name 


COND_CODE 

+ 

Get primary condition name. 

COND_NAME = .SIGNAL_ARGS CCHFSL_SIG_NAME]); 

+ 

Is this a PAS$ error? If not, resignal. 

iY ates titan CSTS$V_FAC_NOJ] NEQU PASS_FACILITY 
RETURN SS$_RESIGNAL; 

'¢ 


i See if the error message is one which is ‘trapped’ 
! by ERROR:=CONTINUE. This is done by comparing the 


Sequence number of error 


F 16 
PASSWRITE_REALF Write an F_floating in F format - V1 semantics 16-Sep-1984 02:18:51 AX-11 Bliss-32 V4.0-74 
1-002 LOCAL _AANDCER - ing. handler 1e-Sep-19 4 93: 18:3) PASRTL. Loe Spaguntiel 68251 
> 344 0404 ! message number against a select range. 
a Re an eee 
3 347 040 a CODE = .COND_NAME CSTS$V_CODE]; ! Get error number 
3 348 0408 - COND _¢ CODE GEQO PASS$K _MSGCONTLO- AND ' Lowest number 
3 308 0409 -COND-CODE LEQU PASS$K~ _MSGCONTHI i Highest number 
; 3 0410 3 
.> 2a 0411 4 BEGIN 
; 326 pele 4 
; = 0413 4 1+ 
: 354 0414 4 i See if the PFVs match. The signaller's PFV is the 
3 $2? 0415 4 ! _first FAO parameter in the primary message. 
3; 30 0416 4 ! 
i 74 0417 & 
; 358 0418 4 IF ;,S1GNAL_ARGS (12,0,32,0] EQLA ..ENABLE_ARGS CENB_PFV_ADDRJ 
3; 39 0419 4 THEN 
; ee 0420 4 '+ 
s Jel 0421 4 i We want to unwind to the PC specified in the enable argument 
; jee 0422 4 i error address. 
: 363 0423 4 ie 
; 364 0424 4 
3 365 0425 5 BEGIN 
; $09 6259 g ul wd SUNWIND (NEWPC=..ENABLE_ARGS CENB_ERROR_ADDR]) 
; 368 0428 5 SIGNAL_STOP (PAS$_BUGCHECK,1,BUG_UNWINDFAIL); 
: 369 494 4 D; 
; 3rO 0430 3 END; 
3 (ST 0431 2 END; 
3; se 0432 2 
3 ST 0433 2 RETURN SS$_RESIGNAL; ! Resignal error 
3: 374 0434 2 
; oS 0435 1 END; ! End of routine LOCAL_HANDLER 
-EXTRN PASS$_FACILITY, PASS$K_MSGCONTLO 
“EXTRN PASS$SK_MSGCONTH 
~EXTRN SY SSUNGIND, PAS$_BUGCHECK 
0004 00000 LOCAL_HANDLER: 
«WORD Save R2 
51 04 AC 00 00002 OVL PIGNAL ARGS R1 
00000920 =s BF 04 Al D1 00006 CMPL 4(R1), "#2336 
52 13 si 3 BEQL 1$ 
50 0c AC DO 0001 MOVL ENABLE_ARGS, RO 
0c B0 re 00014 TSTL ai2(Roy 
49 13 00017 BEQL 1$ 
52 04 Ail 00 00019 MOVL 4(R1), COND_NAME 
006 52 0c 10 £D 0001D CMP7V #16, #12, COND_NAME, S*PASS_FACILITY 
af 12 00022 BNEQ 1$ 
52 52 0c EF 00024 EXTZV #3, #12, COND_NAME, COND CODE 
00000000G_ 8F D1 00029 CMPL COND_ COBE, #PASSSK “MSGCONTLO 
1F 00030 BLSSU- ‘'1$ 
00000000G_ 8F D1 000 § CMPL COND_CODE, #PASS$K_MSGCONTHI 
1A 000 BGTRU 1$ 
04 B0 0c Al D1 000 8 CMPL 12(R1), @4(R0) 
20 12 0004 BNEQ 1$ 


Page 


16 

CARRY I TE REALE Write an F_floating in F format - V1 semantics 18-Sep-1984 95:18 51 AX-11 Bliss-32 iets of Page 10 
1-002 LOCAL_HANDCER = Local handler 14-Sep-1984 3 04 PASRTL.SRCJPASWRIFF1.852;1 (4) 
oc 0 DD O06 PUSHL @12(RO) 3 0426 

D4 4 CLAL -(SP) : 

000000006 00 9 a} BRe CALLS #2, SYSSUNWIND ; 

11 E 04E BLBS , I$ ; 
03 DD 00051 PUSHL ; 0428 

4 DD 00053 PUSHL 3 

000000006 8F DD 00055 PUSHL #PAS$_BUGCHECK : 

000000006 00 FB 0005 CALLS #3 1633 10P ; 
50 0918 BF 3¢ 0062 1$: MOV2WL #2328, RO > 0433 
4 0006 RET 7 0435 

; Routine Size: 104 bytes, Routine Base: _PASSCODE + 0087 


; 378 0436 1 
;. oe 0437 1 !<BLF/PAGE> 


H 16 
PASSYRITE -REALF Write an F_floating in F format - V1 semantics 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Pa 11 
1-002 LOCAL FANDCER - Loval handler 14- ~lee- 1984 5: 13:34 PASRTL.SRCJPASWRIFF1.832;1 ” (5) 
: 386 0438 1 END ! End of module PASSWRITE_REALF_F1 
: 381 0440 0 ELUDOM 
-EXTRN LIBSSTOP 
: PSECT SUMMARY 
i Name Bytes Attributes 
: PASSCODE 239 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Bs Be eee en tae Oe Symbols acoscese Pages Processing 
: File Total Loaded Percent Mapped Time 
> _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 0 581 00:01.1 
3 ~$255$DUA28:CPASRTL.OBJIJPASLIB.L32;1 427 2 6 33 00:00.4 
4 COMMAND QUALIFIERS 
4 FERRE ENE LS PNET IA PT EE EAL LOM SIRS IRFE TER OIE PROMEET | MSRC$:PASWRIFF1/UPDATE=(ENHS:PASWRIFF1 
: Size: 39 code + 0 data bytes 
3 Run Time: 00:06.8 
; Elapsed Time: 00:25.1 
3 Lines/CPU Min: 3865 
3 Lexemes/CPU-Min: 9540 
: nome Used: 61 pages 
; Compilation Complete 
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